home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 2 / 002.d81 / ocean of life (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  110 lines
  1. 4 rem ************************
  2. 5 rem ***  ocean of life   ***
  3. 6 rem *** strider, jan '84 ***
  4. 7 rem ***  translated by   ***
  5. 8 rem *** gardner, apr '84 ***
  6. 9 rem ************************
  7. 10 dim line$(50)
  8. 11 poke783,peek(783)and254
  9. 12 print"[147]";chr$(34);"the ocean of life";chr$(34)
  10. 14 print:print"";"psychology test"
  11. 16 print"translated by alan gardner":gosub40
  12. 30 goto100
  13. 40 poke781,22:poke782,12:sys65520:print"type something"
  14. 50 z$=".:!/-[205]!:.:![205]-/!:.":forz=1tolen(z$)
  15. 52 poke781,22:poke782,10:sys65520:printmid$(z$,z,1);:poke782,27:sys65520
  16. 54 printmid$(z$,z,1);:next
  17. 60 geta$:ifa$=""then50
  18. 75 poke198,0
  19. 80 return
  20. 85 :
  21. 90 forn=1tolen(thought$(w,x)):ifmid$(thought$(w,x),n,1)<>" "then95
  22. 91 poke781,20:sys65520:print"enter only one word[146]":form=1to2000:next
  23. 92 print"[145]                                       "
  24. 93 poke782,h:poke781,v:sys65520:forcl=0to39:print" ";:next:sys65520
  25. 94 goto1500
  26. 95 nextn:goto1650
  27. 97 :
  28. 100 print"[147]"
  29. 110 fory=1to6:readidea$(y):next:fory=1to6:readreal$(y):next
  30. 400 rem ******************************
  31. 500 gosub30000
  32. 750 poke198,0
  33. 1000 rem *****************************
  34. 1050 forw=1to6
  35. 1100 print"[147]":poke781,6:poke782,0:sys65520
  36. 1200 print"think of: ";"";" ";idea$(w);" ";"[146]"
  37. 1300 print"and type three words which describe it  for you.  press <return>";
  38. 1302 print" after each     word you choose."
  39. 1350 print
  40. 1370 ifw>3thenprint"<do not enter the animal's name: just   enter three words ";
  41. 1372 ifw>3thenprint"which describe it.)":print
  42. 1400 forx=1to3
  43. 1500 x$=right$(str$(x),1)
  44. 1550 printx$;:input") - ";thought$(w,x)
  45. 1600 h=0:v=peek(214)-1:goto90
  46. 1650 nextx
  47. 1700 nextw
  48. 1800 print"[147]":poke781,0:poke782,6:print"press any key for results >";
  49. 1805 poke198,0:wait198,1:geta$
  50. 1900 :
  51. 2100 forw=1to6
  52. 2150 print"[147]"
  53. 2200 print"the words you chose to describe ":print:print" "idea$(w)" [146]"
  54. 2250 print
  55. 2300 print"may reflect your subconscious           feelings about"
  56. 2350 print
  57. 2400 print" "real$(w)" [146]":print
  58. 2500 :
  59. 2600 print"the words you chose are:"
  60. 2650 print
  61. 2700 forx=1to3:printthought$(w,x):nextx
  62. 2800 poke198,0:gosub40
  63. 2900 nextw
  64. 2910 print"[147]"
  65. 2915 print"if you cannot see how some of the words you have chosen relate to";
  66. 2916 print" the themes    that this test suggests, try this:"
  67. 2920 print"look at your descriptive word that      doesn't seem to fit.  ";
  68. 2922 print"using the same    process that you  have used in this     test";
  69. 2924 print", think of three words that you     would use to describe it."
  70. 2930 print"then, substitute one or more of these   words for the word that";
  71. 2932 print" didn't fit."
  72. 3000 poke198,0
  73. 3100 print:print:print"a)-review results again"
  74. 3105 print"b)-begin the test again"
  75. 3110 print"c)-exit":print:print
  76. 3200 print:print" enter choice a,b, or c>";:poke198,0:wait198,1:get c$
  77. 3300 ifc$="a"then1900
  78. 3400 ifc$="b"then restore:goto12
  79. 3500 ifc$="c"thenprint"[147]"
  80. 4000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  81. 4010 poke631,13:poke632,13:poke198,2
  82. 4020 end
  83. 20000 data ocean,brick wall,coffee,an animal,a second animal,a third animal
  84. 20500 data life,death,sex,the way you see yourself,the way others see you
  85. 20505 data the way you really are
  86. 30000 print"the purpose of this psychology test is
  87. 30002 [153]"to help you know yourself better and to explore how you feel about";
  88. 30004 [153]" certain":[153]"things."
  89. 30010 [153]:[153]"this test has six parts.  in each part
  90. 30012 print"you will be presented with an idea
  91. 30014 [153]"and you will be asked to choose three"
  92. 30016 [153]"words that you would use to describe "
  93. 30020 [153]"that idea. to do this simply type in thewords you choose one at a";
  94. 30022 [153]" time pressing the <return> after each word"
  95. 30030 [153]"the test will then continue to the next part, until it reaches ";
  96. 30032 [153]"the end.  it willthen show you the results."
  97. 30040 [153]"this test will not draw any conclusions.it is left up to you";
  98. 30042 [153]" to draw any conclusions or implications.":[141]40
  99. 30050 [153]"load'for best results', as they say, be     honest with your choice ";
  100. 30052 [153]"of words.  you":[153]"can only enter single words so keep it "
  101. 30054 [153]"simple."
  102. 30055 [153]"don't think about your choices too long.it's better to ehter the ";
  103. 30057 [153]"first word thatcomes to mind."
  104. 30060 [153]"the accuracy of the associations assumedin this test are of";
  105. 30062 [153]" course open to      debate.  like other 'personality tests',this ";
  106. 30064 [153]"one should not be taken too        seriously."
  107. 30070 [153]"the real purpose is just to get you     thinking"
  108. 30080 [141]40
  109. 30090 [142]
  110.